N            equ  8

even parity
odd parity

error checking


             org  $1000
             move.b  alpha,d0
             move.b  #0,d1     ; counter for logic 1
             move.w  #7,d2     ; loop counter
x1           lsr.b   #1,d0     ; shift data into carry
             bc?


             add.b   #1,d1


             dbra    d2,x1
             move.b  d1,count1
             nop

              org  $10a0
alpha         ds.b 1


0000 0011
0000 0100  *
0000 0110  *
0000 0101
0000 0010  *
0000 0111






1010 0011
even parity
x0011010     10011010
x0110011     00110011


odd parity
x0111001     10111001
x1100100     01100100








